// CodeMirror, copyright (c) by Marijn Haverbeke and others
// Distributed under an MIT license: http://codemirror.net/LICENSE

(function(mod) {
  if (typeof exports == 'object' && typeof module == 'object')
    // CommonJS
    mod(require('../../lib/codemirror'));
  else if (typeof define == 'function' && define.amd)
    // AMD
    define(['../../lib/codemirror'], mod);
  // Plain browser env
  else mod(CodeMirror);
})(function(CodeMirror) {
  'use strict';

  CodeMirror.defineMode('ttcn-cfg', function(config, parserConfig) {
    var indentUnit = config.indentUnit,
      keywords = parserConfig.keywords || {},
      fileNCtrlMaskOptions = parserConfig.fileNCtrlMaskOptions || {},
      externalCommands = parserConfig.externalCommands || {},
      multiLineStrings = parserConfig.multiLineStrings,
      indentStatements = parserConfig.indentStatements !== false;
    var isOperatorChar = /[\|]/;
    var curPunc;

    function tokenBase(stream, state) {
      var ch = stream.next();
      if (ch == '"' || ch == "'") {
        state.tokenize = tokenString(ch);
        return state.tokenize(stream, state);
      }
      if (/[:=]/.test(ch)) {
        curPunc = ch;
        return 'punctuation';
      }
      if (ch == '#') {
        stream.skipToEnd();
        return 'comment';
      }
      if (/\d/.test(ch)) {
        stream.eatWhile(/[\w\.]/);
        return 'number';
      }
      if (isOperatorChar.test(ch)) {
        stream.eatWhile(isOperatorChar);
        return 'operator';
      }
      if (ch == '[') {
        stream.eatWhile(/[\w_\]]/);
        return 'number sectionTitle';
      }

      stream.eatWhile(/[\w\$_]/);
      var cur = stream.current();
      if (keywords.propertyIsEnumerable(cur)) return 'keyword';
      if (fileNCtrlMaskOptions.propertyIsEnumerable(cur))
        return 'negative fileNCtrlMaskOptions';
      if (externalCommands.propertyIsEnumerable(cur))
        return 'negative externalCommands';

      return 'variable';
    }

    function tokenString(quote) {
      return function(stream, state) {
        var escaped = false,
          next,
          end = false;
        while ((next = stream.next()) != null) {
          if (next == quote && !escaped) {
            var afterNext = stream.peek();
            //look if the character if the quote is like the B in '10100010'B
            if (afterNext) {
              afterNext = afterNext.toLowerCase();
              if (afterNext == 'b' || afterNext == 'h' || afterNext == 'o')
                stream.next();
            }
            end = true;
            break;
          }
          escaped = !escaped && next == '\\';
        }
        if (end || !(escaped || multiLineStrings)) state.tokenize = null;
        return 'string';
      };
    }

    function Context(indented, column, type, align, prev) {
      this.indented = indented;
      this.column = column;
      this.type = type;
      this.align = align;
      this.prev = prev;
    }
    function pushContext(state, col, type) {
      var indent = state.indented;
      if (state.context && state.context.type == 'statement')
        indent = state.context.indented;
      return (state.context = new Context(
        indent,
        col,
        type,
        null,
        state.context,
      ));
    }
    function popContext(state) {
      var t = state.context.type;
      if (t == ')' || t == ']' || t == '}')
        state.indented = state.context.indented;
      return (state.context = state.context.prev);
    }

    //Interface
    return {
      startState: function(basecolumn) {
        return {
          tokenize: null,
          context: new Context((basecolumn || 0) - indentUnit, 0, 'top', false),
          indented: 0,
          startOfLine: true,
        };
      },

      token: function(stream, state) {
        var ctx = state.context;
        if (stream.sol()) {
          if (ctx.align == null) ctx.align = false;
          state.indented = stream.indentation();
          state.startOfLine = true;
        }
        if (stream.eatSpace()) return null;
        curPunc = null;
        var style = (state.tokenize || tokenBase)(stream, state);
        if (style == 'comment') return style;
        if (ctx.align == null) ctx.align = true;

        if (
          (curPunc == ';' || curPunc == ':' || curPunc == ',') &&
          ctx.type == 'statement'
        ) {
          popContext(state);
        } else if (curPunc == '{') pushContext(state, stream.column(), '}');
        else if (curPunc == '[') pushContext(state, stream.column(), ']');
        else if (curPunc == '(') pushContext(state, stream.column(), ')');
        else if (curPunc == '}') {
          while (ctx.type == 'statement') ctx = popContext(state);
          if (ctx.type == '}') ctx = popContext(state);
          while (ctx.type == 'statement') ctx = popContext(state);
        } else if (curPunc == ctx.type) popContext(state);
        else if (
          indentStatements &&
          (((ctx.type == '}' || ctx.type == 'top') && curPunc != ';') ||
            (ctx.type == 'statement' && curPunc == 'newstatement'))
        )
          pushContext(state, stream.column(), 'statement');
        state.startOfLine = false;
        return style;
      },

      electricChars: '{}',
      lineComment: '#',
      fold: 'brace',
    };
  });

  function words(str) {
    var obj = {},
      words = str.split(' ');
    for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
    return obj;
  }

  CodeMirror.defineMIME('text/x-ttcn-cfg', {
    name: 'ttcn-cfg',
    keywords: words(
      'Yes No LogFile FileMask ConsoleMask AppendFile' +
        ' TimeStampFormat LogEventTypes SourceInfoFormat' +
        ' LogEntityName LogSourceInfo DiskFullAction' +
        ' LogFileNumber LogFileSize MatchingHints Detailed' +
        ' Compact SubCategories Stack Single None Seconds' +
        ' DateTime Time Stop Error Retry Delete TCPPort KillTimer' +
        ' NumHCs UnixSocketsEnabled LocalAddress',
    ),
    fileNCtrlMaskOptions: words(
      'TTCN_EXECUTOR TTCN_ERROR TTCN_WARNING' +
        ' TTCN_PORTEVENT TTCN_TIMEROP TTCN_VERDICTOP' +
        ' TTCN_DEFAULTOP TTCN_TESTCASE TTCN_ACTION' +
        ' TTCN_USER TTCN_FUNCTION TTCN_STATISTICS' +
        ' TTCN_PARALLEL TTCN_MATCHING TTCN_DEBUG' +
        ' EXECUTOR ERROR WARNING PORTEVENT TIMEROP' +
        ' VERDICTOP DEFAULTOP TESTCASE ACTION USER' +
        ' FUNCTION STATISTICS PARALLEL MATCHING DEBUG' +
        ' LOG_ALL LOG_NOTHING ACTION_UNQUALIFIED' +
        ' DEBUG_ENCDEC DEBUG_TESTPORT' +
        ' DEBUG_UNQUALIFIED DEFAULTOP_ACTIVATE' +
        ' DEFAULTOP_DEACTIVATE DEFAULTOP_EXIT' +
        ' DEFAULTOP_UNQUALIFIED ERROR_UNQUALIFIED' +
        ' EXECUTOR_COMPONENT EXECUTOR_CONFIGDATA' +
        ' EXECUTOR_EXTCOMMAND EXECUTOR_LOGOPTIONS' +
        ' EXECUTOR_RUNTIME EXECUTOR_UNQUALIFIED' +
        ' FUNCTION_RND FUNCTION_UNQUALIFIED' +
        ' MATCHING_DONE MATCHING_MCSUCCESS' +
        ' MATCHING_MCUNSUCC MATCHING_MMSUCCESS' +
        ' MATCHING_MMUNSUCC MATCHING_PCSUCCESS' +
        ' MATCHING_PCUNSUCC MATCHING_PMSUCCESS' +
        ' MATCHING_PMUNSUCC MATCHING_PROBLEM' +
        ' MATCHING_TIMEOUT MATCHING_UNQUALIFIED' +
        ' PARALLEL_PORTCONN PARALLEL_PORTMAP' +
        ' PARALLEL_PTC PARALLEL_UNQUALIFIED' +
        ' PORTEVENT_DUALRECV PORTEVENT_DUALSEND' +
        ' PORTEVENT_MCRECV PORTEVENT_MCSEND' +
        ' PORTEVENT_MMRECV PORTEVENT_MMSEND' +
        ' PORTEVENT_MQUEUE PORTEVENT_PCIN' +
        ' PORTEVENT_PCOUT PORTEVENT_PMIN' +
        ' PORTEVENT_PMOUT PORTEVENT_PQUEUE' +
        ' PORTEVENT_STATE PORTEVENT_UNQUALIFIED' +
        ' STATISTICS_UNQUALIFIED STATISTICS_VERDICT' +
        ' TESTCASE_FINISH TESTCASE_START' +
        ' TESTCASE_UNQUALIFIED TIMEROP_GUARD' +
        ' TIMEROP_READ TIMEROP_START TIMEROP_STOP' +
        ' TIMEROP_TIMEOUT TIMEROP_UNQUALIFIED' +
        ' USER_UNQUALIFIED VERDICTOP_FINAL' +
        ' VERDICTOP_GETVERDICT VERDICTOP_SETVERDICT' +
        ' VERDICTOP_UNQUALIFIED WARNING_UNQUALIFIED',
    ),
    externalCommands: words(
      'BeginControlPart EndControlPart BeginTestCase' + ' EndTestCase',
    ),
    multiLineStrings: true,
  });
});
